home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 51 / Amiga Format CD51 (2000-03-10)(Future Publishing)(GB)[!][issue 2000-04].iso / -in_the_mag- / pdselect / charon / rexx / addurl.rexx
OS/2 REXX Batch file  |  2000-02-16  |  482b  |  28 lines
  1. /* Adds URL passed as first argument to the list */
  2.  
  3. OPTIONS RESULTS
  4.  
  5. CharonPath = "W:Charon"
  6.  
  7. PARSE ARG URL
  8.  
  9. IF (URL = '' | URL = '?') THEN DO
  10.     SAY 'URL/A'
  11.     EXIT 20
  12. END
  13.  
  14. P = ' ' || ADDRESS() || ' ' || SHOW('P',,)
  15. IF POS(' CHARON.', P) > 0 THEN charonport = WORD(SUBSTR(P, POS(' CHARON.', P) + 1), 1)
  16. ELSE DO
  17.     ADDRESS COMMAND
  18.     "Run >NIL: " || CharonPath
  19.     "WaitForPort CHARON.1"
  20.     charonport = 'CHARON.1'
  21. END
  22.  
  23. ADDRESS(charonport)
  24.  
  25. NEWURL URL
  26. ID=RESULT
  27. IF ID ~= 0 THEN START 'ID='||ID
  28.